home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / libguide / checkyourlibraries < prev    next >
Text File  |  1999-01-01  |  3KB  |  75 lines
  1. ; CheckYourLibs V3.0
  2. ; © 1998-1999 by Michaela Prüß & Heiko Schröder
  3. ; © 02/1999 by Heiko Schröder
  4. ; 3.0  Suche nun mit VersionWB
  5. ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
  6.  
  7. Echo "Library-Check at your system*NV3.0 © Heiko Schröder 98/99"
  8. Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
  9. Ask "Do you want to check your system for libraries? (Y/N)"
  10. If NOT WARN=5
  11.    Echo "CANCEL ..."
  12.    C:Quit
  13. EndIf 
  14.  
  15. C:FailAt 100
  16. C:Copy VersionWB RAM:
  17. C:Copy C:Search RAM:
  18. C:Copy Scripts/LibList RAM:
  19. C:Copy MyCheck RAM:
  20. C:Copy MyCheck.rexx RAM:
  21. C:Copy MyConvert.rexx RAM:
  22.  
  23. Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
  24. Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
  25. Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
  26. Echo "For LibGuide (02/99) I scan infos about your system:" >>Ram:lib-NewList
  27. VersionWB >>Ram:Lib-NewList
  28. CPU >>Ram:Lib-NewList
  29.  
  30. Echo "Starting Rexx"
  31. Sys:System/RexxMast >NIL:
  32.  
  33. Echo "Looking for Libs:#?.library"
  34. C:List Libs: PAT=#?.library~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
  35.  
  36. Sort Ram:List1 Ram:List1
  37.  
  38. Echo "Starting Check..."
  39. SetEnv VERSIONWB_MAX 255
  40. Protect MyCheck +s
  41. Execute Ram:List1
  42. Echo "*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
  43. Echo "Please send me the RAM:Lib-NewList for updating the Libraries.guide.*N"
  44. Echo "*NThis script used the program VersionWB from Håkan Parting...*N--- END---"
  45.  
  46. SetEnv VERSIONWB_MAX 50
  47. Delete Ram:List1 QUIET
  48. Delete Ram:VersionWB QUIET
  49. Delete Ram:vwb_check QUIET
  50. Delete Ram:Search QUIET
  51. Delete Ram:LibList QUIET
  52. Delete Ram:MyCheck QUIET
  53. Delete Ram:MyCheck.rexx QUIET
  54. Delete Ram:MyConvert.rexx QUIET
  55.  
  56. Ask "Please press ENTER for next Step."
  57. Echo "*ec"
  58.  
  59. ; Library Online Update Generating Script
  60.  
  61. Echo "Online Library Update Form Generator 1.01*N© 98/99 by Heiko Schröder*N"
  62. Ask "Next Step... *NDo you want to create a Form for updating libraries online at*Nhttp://amigasystem.org (IP=http://209.140.94.126)? (Y/N)"
  63. If NOT WARN=5
  64.    Echo "CANCEL ..."
  65.    Delete Ram:Lib-OnlineUpdate QUIET
  66.    C:Quit
  67. EndIf
  68. Echo "Generating Form..."
  69. rx MyOnlineUpdate.rexx
  70.  
  71. Delete Ram:Lib-OnlineUpdate QUIET
  72. Echo "Ready. Please load RAM:Lib-OnlineUpdate.html in your browser and follow the instructions."
  73. Ask "*NPress ENTER to end..."
  74. Wait 2 secs
  75.